class ckUser	public property username as string	public property fullname as string	public property state as integer	public sub EnableAccount()		me.state = true	end sub		public sub DisableAccount()		me.state = false	end sub	end classclass ckAdminUser	extends ckUser	public property isRoot as integer	end classclass ckClassroomAdmin	extends ckAdminUser	public property course as stringend classsub main()   	dim MyClassUser as ckClassroomAdmin	dim AnyUser as ckUser	AnyUser = new ckUser	MyClassUser = new ckClassroomAdmin	
	MyClassUser.username = "jose"	MyClassUser.course = "MATE3022"	MyClassUser.isRoot = false	MyClassUser.fullname = "Jose L. Cuevas"	MyClassUser.enableAccount()		if MyClassUser.state = true then		msgbox("Account for " & MyClassUser.Fullname & " is enabled.")	else		msgbox("Account for " & MyClassUser.Fullname & " is disabled.")	end if		end sub